examples/example-1 Basic/server.R

In XD-DENG/ECharts2Shiny: Embedding Interactive Charts Generated with ECharts Library into Shiny Applications

library(shiny)
library(ECharts2Shiny)

# Prepare sample data for plotting ---------------------------------------

dat <- data.frame(c(1, 2, 3, 1),
                  c(2, 4, 6, 6),
                  c(3, 2, 7, 5))
names(dat) <- c("Type-A", "Type-B", "Type-C")
row.names(dat) <- c("Time-1", "Time-2", "Time-3", "Time-4")


shinyServer(function(input, output) {

  # Call functions from ECharts2Shiny to render charts
  renderBarChart(div_id = "test", grid_left = '1%',
                 data = dat)
  })